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> Module: Read Routines 
> 

> This module contains all but the very most primitiye of 

> of procedures < the routines that are resident are I is ted 

> in the external spec's > that concern themselves with performing 

> a read operation. 
> 

> FUNCTION ReadBlock< Par&ni : BVTE { irS } > : 

> BOOLERH 

> Status : BS^TE { !rO > 

> RdErrCnt : BVTE < Irl > 
> 
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> Function: ReadBlock 
> 

> This function assumes that the heads or^e positioned over the 

> correct track and reads the block of data uihose header 

> matches the header that is made up of the cyl inderj, head 

> and sector information that is stored in memory. 
> 

'■ Inputs: 

> Parent : BVTE { IrS } 



> Outputs: 

> ReadBlock 

> Status 

> RdErrCnt 



BOOLEfiN { Zero flag, true if error in ReadBlock } 
BVTE { !rO > 
BVTE { \r-^ } 



> Global Uariables Used: 

> Gyl inder. Head, Sector, Recovery 
> 

> Local Uariables Used: 



RdRetryCnt 

RdError 

RdExcept 

RdSuccess 

NoHdrFound 

SectorsRead 



BVTE { IrS ) 

BOOLEAN { !r9/bit 7 > 



BOOLEfiN { 
BOOLEAN { 
BOOLEAN { 



r9/bit 6 > 
r9/bit 5 ) 
r9/bit 4 > 



BVTE { !rfl > 



filg»Drithm: 



> BEGIN 

> SetDeadNanTimer< ReadBlock, Parent > 

> RdRetryCnt := 10 

> RdErrCnt := 

> RdError := False 

> RdExcept := False 

> NoHeaderFound := False 

> SectorsRead := 2 * NbrS'ctrs i try to find header for taso rotations ) 

> REPEAT 

> RHeaderC 1 I := HiCyfinder 



RHecjder- [ 
RHeaderC 
RHeaderl 
RHeaderC 
RHeaderE 
RHeader t 



] : = LoCy I i ruder 
]/bits 7:5 := Head 
1/bits 5:0 := Sector 



= InyertC RHeader I 1 3 
= lnvert< RHeader I 2 1 
= InverK RHeader [ 3 1 



ReadflrrayC RDuinmy-l 1 := 



Set-up external ram address counter for READ 

MselOil := Disk < — > Mem 

WHILE Sectorriark DO BEGIN END 

StartL := True 

WHILE NOT< SectorDnL ) DO BEGIN END 

Status := Status_Port 

StartL := False 

rise 10; 1 := Z8 <— > hem 



CfiSE Status. State OF 
Norma I EndState 



RdSuccess := True 



NoNatchingHeader Found : RdSuccess ;= False 

RdEr^ror := True 
NoHeaderFound := True 



Abnormal State 



Reset JStateMach i ne 
Abort 



IF Status.ServoErr OR NOT< Status.ServoRdy > 
THEN 

RdError := True 

RdExcept := True 

IF Status.CrcErr AND RdSuccess 
THEN 

RdError := True 
RdErrCnt := RdErrCnt + 1 
RdRetryCnt := RdRetryCnt - 1 
ELSE 

IF RdError 
THEN 

BlockMove< Buffer2, RBufferl > 
RdRetr-ijCnt := RdRetryCnt - 1 



UNTIL NOT< Recovery > OR NOT< RdError > OR < RdRetryCnt = > OR 

RdExcept OR < NoHeaderFound > 
C I earDeadHanT i mer 
Status := \r9 
END 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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ReadBlock: 



CIr IrQ ; clear boo I eons 
Ld !r8,«10 ; RdRetryCnt := 10 
CIr IrB -ErrCnt := 



find 



DJskStat,*$FF-Wr^p ;inake certain we arB reading 



RdBlk_fipl: Ld »r2,».HIBVTE. RHeader ; in! tialize gaps 

Ld !r3,».L0MBVTE. RHeader 

Cal I Load_Header 

Ld !rO,«0 

Lde g!!r2JrO 

Ld !r2,«.HIBVTE. < RDumroy-1 > 

Ld lr3,«.L0WBVTE. ( RDummy-1 ) 

Lde e!«r2, !rO 

I new !lr2 

Lde ei!r2, !rO 

■Jr Do_Read 



Read-Fast: 



Do JRead : 



RdBlk-Morm: 



RdJServoOk 



RdJioCrcErr: 



RdBlkJJntr 



RdBlk_End: 



CIr 
Ld 
C!r 
Rnd 

Ld 

Ld 

Lde 

find 

Or 

Lde 

fidd 

Com 

Lde 

Call 

Ld 

find 

Or 

Jr 

Cp 

Jr 

Or 

Ld 

TiR 

Jr 
Tin 
Jr 

TiR 

Jr 
Tffl 
Jr 

Tm 
Jr 

Tffi 
Jr 
Tffl 
Jr 

Ld 
Ld 
Ld 



!r9 jclear boo leans 

!r8,«10 ;RdRetryCnt := 10 

!rB jErrCnt := 

DiskStat,*$FF-Ur_Op jinake certain me ore reading 

!r2.*.H!BVTE. C RHeader+2 > ;get location of Sector 

lr3".«.L0WBVTE. < RHeader+2 ) 

! rO, e ! ! r2 ; ge t current Head /Sec tor ya I ue 

!rO,*$CO ;ffiask out old sector Molue 

IrO.Sector ; merge in new sector 

§!{r2JrO ;and store it 

!r3j,*3 ;get location of Inverse Head /Sec tor 

IrO 

§Mr2. !rO jond store it. too! 



Rd_Besident 

IrlJrO 
!r1,«$0F 
!rfi, Irfi 
Z,RdBlk_f1oHd»- 
\r\f *Horro jS tate 
Nz,RdBlk_ftbHoris 

I rQj, *RdSuccess 

IrlJrO 
lr1j,*SeryoErr 
liz^RdJServoErr 
I r 1 , *SeruoRdy 
Zj, Rd_ServoErr 

!rO,«CrcErrL 
Z,Rd_BadCrc 
!rO,«UrtNyldL 
Zj Rd_BadEcc 

lr9,«RdError 
Nz,RdBlk_BmoMe 



;go internal to the Z8 
:CfiSE Status. State 



IF ServorErr OR NOT< ServoRdy > 



; I F Status . CrcErr 
; OR Status. EccErr 

: THEN IF RdError 



Excp t_S ta tus , *RecoMery 
Z,RdBlk_£nd 
lr9,«RdError 
Nz,RdB_Rpt1 

RdErrCnt, IrB 

IrO, ?r9 ;send status back to caller 

RdStatJrQ 





Tern 
Ret 


lrO,*RdError ;set zero flag if error 


RdB_f{pt1: 


Ld 
Ld 

Coii 

Jp 


! r2 , « . H 1 BVTE . ZeroHeader 
lr3,«.L0WBVTE. ZeroHeader 
Bai^ik jCa 1 1 
RdBlk_Rpt 


RdBlk-fibNorm: 


Call 
Ld 
Call 


ResetJStnach 
!rfi, !rO 
Abort 


RdBlk_l<oHdr: 


find 

Or 

Tm 

Jr 

Or 


! r9, *$FF-RdSuccess 

lrQ^*Error 

!rB,«HdrJ1isl1atch 

Nz,Rd_HdrErr 

!rB,«Hdr_J1isl1atch 




Tffl 
Jr 


ExcptJStat.*Recovery ;auto offset OHLS^ i 
Z,RdBlkJL»ntil 




Call 
Jr 


ReSeek ;set autojoffset 
RdBlkJUntil 


Rd_HdrErr: 


Or 
Jr 


!r9.«RdNoHdrFnd + RdError 
RdBlkJEnd 


Rd_JSeryoErr : 


Or 
Jr 


!r9,«RdError + RdSrvoErr ; THEN RdError 1 
RdBlk_End 


Rd_BadCrc: 


Or 


>r9,«RdError+RdCrcErr ; ELSE 


RD_Bad1: 


Inc 

Or 

Tm 

Jr 

Or 


IrB 

!rB,«CrcStat 

IrO, «Ur tliuldL ; check for Ecc error too 

Nz,Rd_B_Crc_1 

!rB,«EccStat 



RdServoErr 



Tin 

Tm 

Jr 



Excpt_Stat, *Recovery 
Z,RdjB_JCr-c_1 



; ReSeek only if recovery is on 



DiskStat^*OffsetJ0n ."set auto offset if needed 
nz.Rd_BJCrc_1 



Call 



ReSeek 



RdJBjCrc_1 : D j nz ! r8, RdB I kJUnt i i 

Jr RdBlk-£nd 

Rd_BadEcc : Or I r9 . «RdError +RdCrcErr 

Inc !rB' 

Jr Rd_Bad1 

RdBlkJBffioue: Ld lr2,«.HIBVTE. RBuf_To_Buf2 

Ld !r3,«.L0MBVTE. RBuf_To_Buf2 

Cal I BankJCal I 

Jr Rd_BjCrc_1 



LSTOFF 



